|
|
 |
|
|
|
|
18: '##ModelId=352AB4C801B3
19: Private mvarpDBConnection As ADODB.Connection 'local copy
20: '##ModelId=352AB4C80258
21: Private mvarDBConnect As String 'local copy
22: 'local variable(s) to hold property value(s)
23: '##ModelId=352AB4C802C6
24: Private mvarDefaultDriverName As String 'local copy
25: 'local variable(s) to hold property value(s)
26: '##ModelId=352AB4C80366
27: Private mvarDefaultServerName As String 'local copy
28: '##ModelId=352AB4C90136
29: Public Property Let DefaultServerName(ByVal vData As String)
30: 'used when assigning a value to the property, on the left side of an assignment.
31: 'Syntax: X.DefaultServerName = 5
32: mvarDefaultServerName = vData
33: End Property
34:
35:
36: '##ModelId=352AB4C803D4
37: Public Property Get DefaultServerName() As String
38: 'used when retrieving value of a property, on the right side of an assignment.
39: 'Syntax: Debug.Print X.DefaultServerName
40: DefaultServerName = mvarDefaultServerName
41: End Property
42:
43:
44:
45: '##ModelId=352AB4CA0014
46: Public Property Let DefaultDriverName(ByVal vData As String)
47: 'used when assigning a value to the property, on the left side of an assignment.
48: 'Syntax: X.DefaultDriverName = 5
49: mvarDefaultDriverName = vData
50: End Property
51:
52:
53: '##ModelId=352AB4C902EE
54: Public Property Get DefaultDriverName() As String
55: 'used when retrieving value of ODBC driver name.
56: 'Syntax: Debug.Print X.DefaultDriverName
57: DefaultDriverName = mvarDefaultDriverName
58: End Property
59:
60:
61:
62: '##ModelId=352AB4CA0316
63: Public Property Let DBConnect(ByVal vData As String)
|
|
|
|
|
|